home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / INSTALL.PRG < prev    next >
Text File  |  1993-05-26  |  6KB  |  236 lines
  1. PROCEDURE Install
  2. *----------------------------------------------------------------------------
  3. * NAME
  4. *   Install - Installs the dBASE IV Productivity Pack
  5. *
  6. * DESCRIPTION
  7. *
  8. *----------------------------------------------------------------------------
  9.   SET TALK OFF
  10.   SET ECHO OFF
  11.   SET COLOR OF NORMAL      TO w+/bg
  12.   SET COLOR OF HIGHLIGHT   TO rg+/w
  13.   SET COLOR OF MESSAGES    TO w/b
  14.   SET COLOR OF TITLES      TO n/bg
  15.   SET COLOR OF BOX         TO W+/b
  16.   SET COLOR OF INFORMATION TO bg+/b
  17.   SET COLOR OF FIELDS      TO W+/n
  18.   SET STATUS OFF
  19.   SET BORDER TO NONE
  20.  
  21.   DEFINE WINDOW title FROM 8,16 TO 11, 62 COLOR n/w
  22.   ACTIVATE WINDOW title
  23.   @ 0,0 SAY "┌─────────────────────────────────────────────" COLOR n/w 
  24.   @ 0,46 SAY "┐" COLOR w+/w 
  25.   @ 1,0 SAY "│" COLOR n/w 
  26.   @ 1,3 SAY "Welcome to the dBASE IV Productivity Pack" 
  27.   @ 1,46 SAY "│" COLOR w+/w 
  28.   @ 2,0 SAY "│" COLOR n/w 
  29.   @ 2,12 SAY "for dBASE IV version 2.0" 
  30.   @ 2,46 SAY "│" COLOR w+/w 
  31.   @ 3,0 SAY "└" COLOR n/w 
  32.   @ 3,1 SAY "─────────────────────────────────────────────┘" COLOR w+/w 
  33.   SAVE SCREEN TO title
  34.   RELEASE WINDOW title
  35.   RESTORE SCREEN FROM title
  36.  
  37.   SET EXACT ON
  38.   SET EXCLUSIVE OFF
  39.   SET SAFETY OFF
  40.  
  41.   cSampDir = "DB4PPSAM"
  42.   cSrcDir  = "DB4PPSRC"
  43.  
  44.   cSEAHome = "DB4PP.EXE"                && Self-Extracting Archive for HOME()
  45.   cSEASamp = "DB4PPSAM.EXE"             && Self-Extracting Archive for Samples
  46.   cSEASrc  = "DB4PPSRC.EXE"             && Self-Extracting Archive for Source
  47.   cSEAEd   = "DB4PPED.EXE"              && Self-Extracting Archive for dBEdit
  48.   cSEAdC   = "DB4PPDC.EXE"              && Self-Extracting Archive for BdCDrive
  49.  
  50.   *------------------------------------------------------
  51.   *-- Check the version of dBASE before going any further
  52.   *------------------------------------------------------
  53.   IF .NOT. ( "2.0" $ VERSION() )
  54.     WAIT "This is not dBASE IV version 2.0!"
  55.     QUIT WITH 1
  56.   ENDIF
  57.  
  58.   cInstDrv = SET( "DIRECTORY" )
  59.   IF RIGHT( cInstDrv, 1 ) <> "\"
  60.     cInstDrv = cInstDrv + "\"
  61.   ENDIF
  62.   cSEAHome = cInstDrv + "DB4PP.EXE"
  63.   cSEASamp = cInstDrv + "DB4PPSAM.EXE"
  64.   cSEASrc  = cInstDrv + "DB4PPSRC.EXE"
  65.   cSEAEd   = cInstDrv + cSEAEd
  66.   cSEAdC   = cInstDrv + cSEAdC
  67.  
  68.   cHomePath = HOME()
  69.   cHomeDir = LEFT( cHomePath, LEN( cHomePath ) - 1 )
  70.   SET DIRECTORY TO &cHomeDir
  71.  
  72.   *-------------------------------------------
  73.   *-- See if you have rights to this directory
  74.   *-------------------------------------------
  75.   ON ERROR lh = 0
  76.   lh = 0
  77.   lh = FCREATE( "CHECKIT.OUT" )
  78.   IF lh = 0
  79.     WAIT "You do not have rights to the dBASE home directory!"
  80.     QUIT WITH 1
  81.   ENDIF
  82.   lOk = FCLOSE( lh )
  83.   ERASE CHECKIT.OUT
  84.  
  85.   *--------------------------------------------------------
  86.   *-- Create the source and sample subdirectories as needed
  87.   *--------------------------------------------------------
  88.   lh = 0
  89.   lh = FCREATE( cSampDir + "\" + "CHECKIT.OUT" )
  90.   IF lh = 0
  91.     ! MD &cSampDir >nul
  92.   ELSE
  93.     lOk = FCLOSE( lh )
  94.     ERASE ( cSampDir + "\" + "CHECKIT.OUT" )
  95.   ENDIF
  96.  
  97.   lh = 0
  98.   lh = FCREATE( cSrcDir + "\" + "CHECKIT.OUT" )
  99.   IF lh = 0
  100.     ! MD &cSrcDir >nul
  101.   ELSE
  102.     lOk = FCLOSE( lh )
  103.     ERASE ( cSrcDir + "\" + "CHECKIT.OUT" )
  104.   ENDIF
  105.  
  106.   lh = 0
  107.   lh = FCREATE( cSampDir + "\" + "CHECKIT.OUT" )
  108.   IF lh = 0
  109.     WAIT "Cannot create samples directory: " + cHomePath + cSampDir
  110.     QUIT WITH 1
  111.   ENDIF
  112.   lOk = FCLOSE( lh )
  113.   ERASE ( cSampDir + "\" + "CHECKIT.OUT" )
  114.   lh = 0
  115.   lh = FCREATE( cSrcDir + "\" + "CHECKIT.OUT" )
  116.   IF lh = 0
  117.     WAIT "Cannot create source directory: " + cHomePath + cSrcDir
  118.     QUIT WITH 1
  119.   ENDIF
  120.   lOk = FCLOSE( lh )
  121.   ERASE ( cSrcDir + "\" + "CHECKIT.OUT" )
  122.  
  123.   *-------------------------
  124.   *-- Start extracting files
  125.   *-------------------------
  126.   ! &cSEAHome -o
  127.   ! &cSEAEd -o
  128.   ! &cSEAdC -o
  129.  
  130.   SET DIRECTORY TO &cSampDir
  131.   ! &cSEASamp -o
  132.  
  133.   SET DIRECTORY TO &cHomeDir
  134.   SET DIRECTORY TO &cSrcDir
  135.   ! &cSEASrc -o
  136.  
  137.   SET DIRECTORY TO &cHomeDir
  138.  
  139.   *-----------------------------------
  140.   *-- Make the CONFIG.DBB startup file
  141.   *-----------------------------------
  142.   SET CONSOLE OFF
  143.   SET ALTERNATE TO config.dbb
  144.   SET ALTERNATE ON
  145.  
  146. TEXT
  147. *
  148. *       dBASE IV Productivity Pack Configuration File
  149. ENDTEXT
  150.  
  151. ? '*    Created on:', DATE()
  152.  
  153. TEXT
  154. *
  155. COLOR OF NORMAL      = w+/bg
  156. COLOR OF HIGHLIGHT   = rg+/w
  157. COLOR OF MESSAGES    = w/b
  158. COLOR OF TITLES      = n/bg
  159. COLOR OF BOX         = W+/b
  160. COLOR OF INFORMATION = bg+/b
  161. COLOR OF FIELDS      = W+/n
  162.  
  163. LOCALSHARE           = OFF
  164.  
  165. ENDTEXT
  166.  
  167. ? 'LIBRARY              =', cHomePath + "DBBDsgn"
  168.  
  169. TEXT
  170. COMMAND              = ASSIST
  171.  
  172. PRGFORM              = _DLENTRY,_DLEXIT,_DLLAY,,_DLEXEC
  173. PRGCC                = _DLCCENT, _DLCCEXT, _DLCCLAY
  174.  
  175. DBTRAP               = OFF
  176. DEVELOPMENT          = ON
  177. EXACT                = ON
  178. EXCLUSIVE            = OFF
  179. EXPSIZE              = 200
  180. INSTRUCT             = OFF
  181. MARGIN               = 5
  182. MEMOWIDTH            = 65
  183. MVBLKSIZE            = 60
  184. MVMAXBLKS            = 16
  185. PROMPT               = DBB->
  186. RTBLKSIZE            = 60
  187. RTMAXBLKS            = 16
  188. STATUS               = ON
  189. TABS                 = 5,10,15,20,25,30,35,40,45,50,55,60,65,70,75,80
  190. TALK                 = OFF
  191. TRAP                 = ON
  192. TYPEAHEAD            = 400
  193. HISTORY              = 50
  194.  
  195. * END: CONFIG.DBB
  196.  
  197. ENDTEXT
  198.   
  199.   SET ALTERNATE OFF
  200.   SET ALTERNATE TO
  201.  
  202.   *-----------------------------------------------
  203.   *-- Make DBB.BAT to start the Dialog Box Builder
  204.   *-----------------------------------------------
  205.   SET ALTERNATE TO dbb.bat
  206.   SET ALTERNATE ON
  207.   SET CONSOLE OFF
  208.  
  209. ? '@ECHO OFF'
  210. ? 'GOTO start'
  211. ? '---------------------------------------------------------------'
  212. ? ' DBB.BAT - Starts dBASE with CONFIG.DBB'
  213. ? '---------------------------------------------------------------'
  214. ? ':start'
  215. ? '  ' + cHomePath + 'DBASE /c', cHomePath + 'config.dbb'
  216. ? ':end'
  217. ? 'REM END: DBB.BAT'
  218. ?
  219.  
  220.   SET ALTERNATE OFF
  221.   SET ALTERNATE TO
  222.   SET CONSOLE ON
  223.  
  224.   *--------------------------
  225.   *-- Display the readme file
  226.   *--------------------------
  227.   SET DIRECTORY TO &cInstDrv
  228.   ON ERROR
  229.   ! README
  230.  
  231. QUIT
  232. *-- EOP: Install
  233.  
  234.  
  235.  
  236.